  TDBNavigator = class (DBCtrls.TDBNavigator)
  public
    procedure BtnClick(Index: TNavigateBtn); override;
  end;
